home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_54 / DoAction.as
Text File  |  2003-11-17  |  1KB  |  49 lines
  1. xxx = x - xx;
  2. while(xxx < x - xx + "5")
  3. {
  4.    yyy = y - yy;
  5.    while(yyy < y - yy + "5")
  6.    {
  7.       if(eval("s" add sd add (xxx - x + xx) add (yyy - y + yy)))
  8.       {
  9.          if(eval("p" add xxx add "_" add yyy) == sd + "10")
  10.          {
  11.             cc -= "1";
  12.          }
  13.          else
  14.          {
  15.             call("chs");
  16.             if(er or eval("p" add xxx add "_" add yyy) == "10")
  17.             {
  18.                yyy = "100";
  19.                xxx = "100";
  20.                cc = "100";
  21.             }
  22.          }
  23.       }
  24.       yyy += "1";
  25.    }
  26.    xxx += "1";
  27. }
  28. if(cc == "0")
  29. {
  30.    kv += "1";
  31.    xxx = x - xx;
  32.    while(xxx < x - xx + "5")
  33.    {
  34.       yyy = y - yy;
  35.       while(yyy < y - yy + "5")
  36.       {
  37.          if(eval("s" add sd add (xxx - x + xx) add (yyy - y + yy)))
  38.          {
  39.             if(eval("p" add xxx add "_" add yyy) != sd + "10")
  40.             {
  41.                set("p" add xxx add "_" add yyy,eval("p" add xxx add "_" add yyy) + sd * "1000" - sd * "1000" * ("999" < eval("p" add xxx add "_" add yyy)));
  42.             }
  43.          }
  44.          yyy += "1";
  45.       }
  46.       xxx += "1";
  47.    }
  48. }
  49.